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30- 



40- 



K ; = empty 



call in routine CEL 
parameters: 
In: a,b, diff: = 1 
out: ak 
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call in routine CLL 
parameters: 
In: a,b, diff: = 0 
out: ak 



call in routine CSL 
parameters: 
In: a,b, diff: = 0 
out: ak 
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call in routine CEL 
parameters: 
In: a,b, diff: = 2 
out: ak 



call in routine CLL 
parameters: 
In: a,b, diff: = 1 
out: ak 
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call in routine CSL 
parameters: 
In: a,b, diff: = 1 
out: ak 
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CEL 



21 



la:= length (a) 
lb:= length (b) 
i:=0 



22- 



compare b with 
u:= a [la-lb+l-i; la -I] 
for error fillings 



ak:= a with u(a) 
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la:= length (a) 
lb:= length (b) 
j;=0 



32- 



compare b with 
u:=a[la-lb+2-i) la- 
for error fillings 
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CSL 
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41 



;= length (a) 
;= length (b) 
:=0 



42- 



ak:= a with-^u(a) 
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compare b with 
u := a [la-lb-i; la -i] 
for error fillings 
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59- 



s:= 1 

f:= length (w) 



compare for all i=1 up to lenght (v) 
if i < s: v [i] with w [I] 
ifi ^ s:v[i] withw[i+1] 
count the error filings 
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